home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / HPGLWDGT < prev    next >
Encoding:
Text File  |  2001-03-02  |  2.1 KB  |  40 lines
  1. 10    ! ********************************************************
  2. 20    ! Example: HPGL VIEW Widget
  3. 30    !
  4. 40    ! This program displays five example HPGL File Drawings.
  5. 50    ! You can bring any of the drawings to the front by clicking
  6. 60    ! the drawing.
  7. 70    !
  8. 80    ! ********************************************************
  9. 90    !
  10. 100       ASSIGN @Hpgl1 TO WIDGET "HPGL VIEW";SET ("X":0,"Y":0,"BACKGROUND":0,"TITLE":" Mechanical Drawing","HPGL FILE":"HELP_EX/MECH.GL","RETAIN RASTER":1)
  11. 110       CONTROL @Hpgl1;SET ("SYSTEM MENU":"Quit")
  12. 120       ON EVENT @Hpgl1,"SYSTEM MENU" GOTO Finis
  13. 130   !   
  14. 140       ASSIGN @Hpgl2 TO WIDGET "HPGL VIEW";SET ("X":20,"Y":20,"TITLE":" Heat Radiation","HPGL FILE":"HELP_EX/GSTORE.GL","BACKGROUND":0,"RETAIN RASTER":1)
  15. 150       CONTROL @Hpgl2;SET ("SYSTEM MENU":"Quit")
  16. 160       ON EVENT @Hpgl2,"SYSTEM MENU" GOTO Finis
  17. 170   ! 
  18. 180       ASSIGN @Hpgl3 TO WIDGET "HPGL VIEW";SET ("X":40,"Y":40,"TITLE":" Ice Berg Flows","HPGL FILE":"HELP_EX/ICE.GL","BACKGROUND":6,"RETAIN RASTER":1)
  19. 190       CONTROL @Hpgl3;SET ("SYSTEM MENU":"Quit")
  20. 200       ON EVENT @Hpgl3,"SYSTEM MENU" GOTO Finis
  21. 210   !  
  22. 220       ASSIGN @Hpgl4 TO WIDGET "HPGL VIEW";SET ("X":60,"Y":60,"TITLE":" Topographical Map","HPGL FILE":"HELP_EX/CONTOR.GL","BACKGROUND":0,"RETAIN RASTER":1)
  23. 230       CONTROL @Hpgl4;SET ("SYSTEM MENU":"Quit")
  24. 240       ON EVENT @Hpgl4,"SYSTEM MENU" GOTO Finis
  25. 250   ! 
  26. 260       ASSIGN @Hpgl5 TO WIDGET "HPGL VIEW";SET ("X":80,"Y":80,"TITLE":" Space Shuttle","HPGL FILE":"HELP_EX/SHUTTLE.GL","BACKGROUND":0,"RETAIN RASTER":1)
  27. 270       CONTROL @Hpgl5;SET ("SYSTEM MENU":"Quit")
  28. 280       ON EVENT @Hpgl5,"SYSTEM MENU" GOTO Finis
  29. 290   !
  30. 300       LOOP
  31. 310           WAIT FOR EVENT
  32. 320       END LOOP
  33. 330  Finis:!
  34. 340       ASSIGN @Hpgl1 TO *  ! Delete HPGL VIEW widget #1
  35. 350       ASSIGN @Hpgl2 TO *  ! Delete HPGL VIEW widget #2
  36. 360       ASSIGN @Hpgl3 TO *  ! Delete HPGL VIEW widget #3
  37. 370       ASSIGN @Hpgl4 TO *  ! Delete HPGL VIEW widget #4
  38. 380       ASSIGN @Hpgl5 TO *  ! Delete HPGL VIEW widget #5
  39. 390       END
  40.